home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / springer / tech-std / tech-std.cmm < prev    next >
Encoding:
Text File  |  1991-12-08  |  21.9 KB  |  579 lines
  1. %===============================================================================
  2. % Font-Definitionen (CM-FONTS) fuer Technik Ergebnisse
  3. %===============================================================================
  4.    \font \kla=     cmr8
  5.    \font \klit=    cmti8 
  6.    \font \klb=     cmmi8
  7.    \font \klc=     cmsy8
  8.    \font \kld=     cmex10 scaled 833
  9.    \font \klsf=    cmmib10 scaled 833
  10.    \font \klsl=    cmsl8
  11.    \font \klbf=    cmbx8
  12.    \font \kltt=    cmtt8
  13.    \font \kkla=    cmr6
  14.    \font \kklb=    cmmi6
  15.    \font \kklc=    cmsy6
  16.    \font \kkld=    cmex10 scaled 694
  17.    \font \kklsf=   cmmib10 scaled 694
  18.    \font \tafont=  cmbx10 scaled\magstep2
  19.    \font \hftc=    cmmib10 
  20.    \font \hft=     cmmib10 scaled\magstep2
  21.    \font \tbfont=  cmbx10 scaled\magstep1
  22.    \font \tcfont=  cmbx10
  23.    \font \tdfont=  cmb10
  24.    \font \tbfonta= cmsl10 scaled\magstephalf
  25. %----------------------------------------------------------------
  26. %-----------------------------------------------------------------------%
  27. %  Makro fuer Stodola-Format einspaltig mit Kolumnentitel und Pagina. %
  28. %  Kolumnentitel und Pagina haben die selbe Schriftgr\"osse             %
  29. %-----------------------------------------------------------------------%
  30. %
  31. % Die Satzspiegelbreite
  32. %
  33.      \hsize = 15.8truecm
  34. %
  35. % Die Satzspiegelhoehe
  36. %
  37.      \vsize = 22.2truecm
  38. %
  39. \nopagenumbers
  40. \raggedbottom
  41. \abovedisplayskip=8pt  plus 0pt minus 2pt
  42. \belowdisplayskip=8pt plus 0pt minus 2pt
  43. \abovedisplayshortskip=0pt plus 2pt
  44. \belowdisplayshortskip=2pt plus 2pt
  45. \lineskip=0pt
  46. \linepenalty=0
  47. \frenchspacing
  48. \parskip=0pt
  49. \clubpenalty=10000
  50. \widowpenalty=10000
  51. %\pretolerance=1000
  52. \tolerance=500
  53. %===============================================================================
  54. % Definition der versal griechischen Buchstaben
  55. %===============================================================================
  56.  
  57.   \mathchardef\Gamma="0100
  58.   \mathchardef\Delta="0101
  59.   \mathchardef\Theta="0102
  60.   \mathchardef\Lambda="0103
  61.   \mathchardef\Xi="0104
  62.   \mathchardef\Pi="0105
  63.   \mathchardef\Sigma="0106
  64.   \mathchardef\Upsilon="0107
  65.   \mathchardef\Phi="0108
  66.   \mathchardef\Psi="0109
  67.   \mathchardef\Omega="010A
  68. %-------------------------------------------------------------------------------
  69. % Formel linksbuendig mit 20 pt Einzug
  70. %
  71. %-------------------------------------------------------------------------------
  72.    \catcode`\@=11
  73. %-------------------------------------------------------------------------------
  74.       \newdimen\mathindent % Betrag, um den eingerueckt wird
  75.       \mathindent=20pt
  76.       \def \eqno {$\hfill$}
  77.       \def \leqno {$\hfill$}
  78.       \long\def \leftdisplay#1$${\line{\hskip\mathindent
  79.                                        $\displaystyle#1$\hfil}$$}
  80.       \everydisplay{\leftdisplay}
  81.  
  82.       \def \eqalignno#1{%
  83.               \displ@y \tabskip=0pt
  84.               \advance\displaywidth by -\mathindent
  85.               \vbox{%
  86.                 \halign to \displaywidth{%
  87.                   \hfil$\displaystyle{##}$\tabskip=0pt
  88.                   &$\displaystyle{{}##}$\hfil\tabskip=\centering
  89.                   &\llap{$##$}\tabskip=0pt\crcr#1\crcr}}}
  90.  
  91. %-------------------------------------------------------------------------------
  92. %  Kleindruck einzelne Woerter
  93. %
  94.    \def \petit           {\baselineskip=9.6pt\textfont0=\kla
  95.                           \scriptfont0=\kkla
  96.                           \textfont1=\klb \scriptfont1=\kklb
  97.                           \textfont2=\klc \scriptfont2=\kklc
  98.                           \textfont3=\kld \scriptfont3=\kkld
  99.                           \scriptscriptfont0=\kkla
  100.                           \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
  101.                           \let\bf=\klbf\let\sf=\klsf\let\sg=\klsf
  102.                           \let\rm=\klfam}
  103.    %\def \eklein          {\egroup}
  104. %------------------------------------------------------------------------
  105. %===============================================================================
  106. % Makro fuer Vektoren in halbfett-kursiv.
  107. %===============================================================================
  108. %
  109. %------------------------------------------------------------------------------%
  110. %  Halbfett,kursiv fuer Vektoren
  111. %
  112. \def\vek#1{{\textfont1=\hftc\scriptfont1=\kklsf
  113. \textfont0=\tenbf\scriptfont0=\sevenbf
  114. \mathchoice{\hbox{$\displaystyle#1$}}{\hbox{$\textstyle#1$}}
  115. {\hbox{$\scriptstyle#1$}}{\hbox{$\scriptscriptstyle#1$}}}}
  116. %
  117. %------------------------------------------------------------------------------%
  118. % Vektoren in halbfett-kursiv mit Dach (Zirkumflex) ueber nachfolgenden
  119. % Zeichen (max. 3)
  120. %
  121.         \def\vhat#1{{\textfont1=\hftc\scriptfont1=\kklsf
  122.         \textfont0=\tenbf\scriptfont0=\sevenbf
  123.         \mathchoice{\hbox{$\displaystyle \,\widehat {#1}\,$}}
  124.         {\hbox{$\textstyle \,\widehat {#1}\,$}}
  125.         {\hbox{$\scriptstyle \,\widehat {#1}\,$}}
  126.         {\hbox{$\scriptscriptstyle \,\widehat {#1}\,$}}}}
  127. %
  128. %------------------------------------------------------------------------------%
  129. % Vektoren als Exponenten in halbfett-kursiv mit Dach (Zirkumflex) ueber
  130. %  nachfolgenden % Zeichen (max. 3)
  131. %
  132. %     \def\vhexp#1{\hbox{\textfont0=\kleinhalbcurs\textfont1=\kleinhalbcurs
  133. %                        $\,\widehat{#1}\,$}}
  134. %
  135. %------------------------------------------------------------------------------%
  136. % Vektoren in halbfett-kursiv mit Tilde ueber nachfolgenden
  137. % Zeichen (max. 3)
  138. %
  139.         \def\vtilde#1{{\textfont1=\hftc\scriptfont1=\kklsf
  140.         \textfont0=\tenbf\scriptfont0=\sevenbf
  141.         \mathchoice{\hbox{$\displaystyle \widetilde {#1}$}}
  142.         {\hbox{$\textstyle \widetilde {#1}$}}
  143.         {\hbox{$\scriptstyle \widetilde {#1}$}}
  144.         {\hbox{$\scriptscriptstyle \widetilde {#1}$}}}}
  145. %
  146. %------------------------------------------------------------------------------%
  147. % Vektoren in halbfett-kursiv mit Punkt ueber nachfolgendem
  148. % Zeichen
  149. %
  150.         \def\vdot#1{{\textfont1=\hftc\scriptfont1=\kklsf
  151.         \textfont0=\tenbf\scriptfont0=\sevenbf
  152.         \mathchoice{\hbox{$\displaystyle \dot{\kern-4pt{#1}}$}}
  153.         {\hbox{$\textstyle \dot{\kern-4pt{#1}}$}}
  154.         {\hbox{$\scriptstyle \dot{\kern-4pt{#1}}$}}
  155.         {\hbox{$\scriptscriptstyle \dot{\kern-4pt{#1}}$}}}}
  156.  
  157. %
  158. %------------------------------------------------------------------------------%
  159. % Vektoren in halbfett-kursiv mit Doppelpunkt ueber nachfolgendem
  160. % Zeichen
  161. %
  162.         \def\vddot#1{{\textfont1=\hftc\scriptfont1=\kklsf
  163.         \textfont0=\tenbf\scriptfont0=\sevenbf
  164.         \mathchoice{\hbox{$\displaystyle \ddot{#1}$}}
  165.         {\hbox{$\textstyle \ddot{#1}$}}
  166.         {\hbox{$\scriptstyle \ddot{#1}$}}
  167.         {\hbox{$\scriptscriptstyle \ddot{#1}$}}}}
  168. %
  169. %------------------------------------------------------------------------------%
  170. % Vektoren in halbfett-kursiv mit Strich ueber nachfolgenden
  171. % Zeichen
  172. %
  173.         \def\vbar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  174.         \textfont0=\tenbf\scriptfont0=\sevenbf
  175.         \mathchoice{\hbox{$\displaystyle \overline{#1}$}}
  176.         {\hbox{$\textstyle \overline{#1}$}}
  177.         {\hbox{$\scriptstyle \overline{#1}$}}
  178.         {\hbox{$\scriptscriptstyle \overline{#1}$}}}}
  179. %
  180. %------------------------------------------------------------------------------%
  181. % Vektoren in halbfett-kursiv mit Doppelstrich ueber nachfolgenden
  182. % Zeichen
  183. %
  184.         \def\vdbar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  185.         \textfont0=\tenbf\scriptfont0=\sevenbf
  186.         \mathchoice{\hbox{$\displaystyle \overline{\overline{#1}}$}}
  187.         {\hbox{$\textstyle \overline{\overline{#1}}$}}
  188.         {\hbox{$\scriptstyle \overline{\overline{#1}}$}}
  189.         {\hbox{$\scriptscriptstyle \overline{\overline{#1}}$}}}}
  190. %
  191. %------------------------------------------------------------------------------%
  192. % Vektoren in halbfett-kursiv mit Strich unter nachfolgenden
  193. % Zeichen
  194. %
  195.         \def\vubar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  196.         \textfont0=\tenbf\scriptfont0=\sevenbf
  197.         \mathchoice{\hbox{$\displaystyle \underline{#1}$}}
  198.         {\hbox{$\textstyle \underline{#1}$}}
  199.         {\hbox{$\scriptstyle \underline{#1}$}}
  200.         {\hbox{$\scriptscriptstyle \underline{#1}$}}}}
  201. %
  202. %------------------------------------------------------------------------------%
  203. % Vektoren in halbfett-kursiv mit Doppelstrich unter nachfolgenden
  204. % Zeichen
  205. %
  206.         \def\vdubar#1{{\textfont1=\hftc\scriptfont1=\kklsf
  207.         \textfont0=\tenbf\scriptfont0=\sevenbf
  208.         \mathchoice{\hbox{$\displaystyle \underline{\underline{#1}}$}}
  209.         {\hbox{$\textstyle \underline{\underline{#1}}$}}
  210.         {\hbox{$\scriptstyle \underline{\underline{#1}}$}}
  211.         {\hbox{$\scriptscriptstyle \underline{\underline{#1}}$}}}}
  212. %
  213. %
  214. %------------------------------------------------------------------------------%
  215. % Matrizen in kursiv-fett 10pt
  216. %===============================================================================
  217.  
  218.     \def\MK #1{\hbox{\hftc #1}}
  219. %-------------------------------------------------------------------------------
  220. %===============================================================================
  221. % Ueberschrift bis 4.Ordnung mit automatischer Numerierung
  222. %
  223. %===============================================================================
  224.   % Zaehler-Definitionen fuer Ueberschriften
  225.   %
  226. \expandafter \newcount \csname c@Tl\endcsname
  227.     \csname c@Tl\endcsname=0
  228. \expandafter \newcount \csname c@Tm\endcsname
  229.     \csname c@Tm\endcsname=0
  230. \expandafter \newcount \csname c@Tn\endcsname
  231.     \csname c@Tn\endcsname=0
  232. \expandafter \newcount \csname c@To\endcsname
  233.     \csname c@To\endcsname=0
  234. \expandafter \newcount \csname c@Tp\endcsname
  235.     \csname c@Tp\endcsname=0
  236. \def \resetcount#1    {\global
  237.     \csname c@#1\endcsname=0}
  238. \def\@nameuse#1{\csname #1\endcsname}
  239. \def\arabic#1{\@arabic{\@nameuse{c@#1}}}
  240. \def\@arabic#1{\ifnum #1>0 \number #1\fi}
  241.  % --------------------------------------------------------------
  242.  % Zaehler-Definition fuer Fussnoten und Uberschriften:
  243.  %
  244. \expandafter \newcount \csname c@fn\endcsname
  245.     \csname c@fn\endcsname=0
  246. \def \stepc#1    {\global
  247.     \expandafter
  248.     \advance
  249.     \csname c@#1\endcsname by 1}
  250. %------------------------------------------------------------------
  251. \newdimen\oldparindent
  252. \def\ignorepar{\ifx\par\endgraf
  253. \oldparindent=\parindent\parindent=0pt
  254.      \def\par{\ifvmode\else\endgraf\let\par=\endgraf
  255.               \parindent=\oldparindent\fi}\fi}
  256. %%
  257. \newdimen\dimenone
  258. \newdimen\skipone
  259. \def\checkleftspace#1#2#3{%
  260.     \dimenone=\pagetotal
  261.     \advance\dimenone by -\pageshrink
  262.     \ifdim\dimenone > \pagegoal
  263.           \else\dimenone=\pagetotal
  264.           \advance\dimenone by \pagestretch
  265.              \ifdim\dimenone < \pagegoal\dimenone=\pagetotal
  266.                 \advance\dimenone by 24pt
  267.                \setbox0=\hbox{#1\arabic{Tl}\ }
  268.                 \setbox0=\vbox{#1\parskip=0pt
  269.                 \raggedright\noindent%
  270.                 \hangindent=\wd0\hangafter=1
  271.                 \box0#2%
  272.                  \vskip#3} \advance\dimenone by \ht0
  273.                  \advance\dimenone by 3\baselineskip
  274.                      \ifdim\dimenone > \pagegoal\vfill\eject
  275.                      \fi
  276.             \else\eject
  277.             \fi
  278.     \fi}
  279.  % Beginn Ueberschrift 1. Ordnung arabisch numeriert
  280.  %
  281.     \def\raggedright{\rightskip=0pt plus 5em}
  282. %
  283.     \newtoks\leftheadline
  284.     \newtoks\rightheadline
  285.  \def \titlea#1{\leftheadline={\kla \folio\quad #1\hfill}
  286.  {\ifvmode\else\par\fi
  287.     \checkleftspace{\tafont}{#1}{12pt}
  288.      \stepc{Tl}
  289.      \resetcount{Tm}
  290.     %\bgroup
  291.     \tafont
  292.     \setbox0=\hbox{\arabic{Tl}\ }
  293.      \vskip18pt
  294.      \baselineskip=16pt
  295.      \lineskip=16pt
  296.      \raggedright
  297.     \noindent
  298.     \hangindent=\wd0\hangafter=1
  299.     \box0#1%
  300.     \vskip50pt
  301.     %\egroup
  302.      \nobreak}
  303.    %\vskip-\parskip
  304.     \ignorepar\ignorespaces}
  305.  % -----------------------------------------------------------------
  306.  % Beginn Ueberschrift 2. Ordnung arabisch numeriert
  307.  %
  308.  \def \titleb#1{\rightheadline={\kla \hfill #1\quad\folio}
  309.  {\ifvmode\else\par\fi
  310.    \checkleftspace{\tbfont}{#1}{12pt}%
  311.      \stepc{Tm}
  312.      \resetcount{Tn}
  313.    %\bgroup
  314.      \tbfont
  315.     \setbox0\hbox{\arabic{Tl}.\arabic{Tm}\ }%
  316.      \vskip18pt
  317.      \raggedright
  318.      \baselineskip=14.4pt
  319.      \lineskip=14.4pt
  320.      \noindent
  321.      \hangindent=\wd0\hangafter=1
  322.      \box0#1%
  323.      \vskip12pt%
  324.      \noindent
  325.  %  \egroup%
  326.      \nobreak}%
  327.  %   \vskip-\parskip
  328.    \ignorepar\ignorespaces}
  329.  % ----------------------------------------------------------------
  330.  % Beginn Ueberschrift 3. Ordnung arabisch numeriert
  331.  %
  332.  \def \titlec#1{{\ifvmode\else\par\fi
  333.      \checkleftspace{\tcfont}{#1}{12pt}
  334.      \stepc{Tn}
  335.      \resetcount{To}
  336.      \bgroup
  337.      \tcfont
  338.      \setbox0\hbox{\arabic{Tl}.\arabic{Tm}.\arabic{Tn}\ }
  339.      \goodbreak
  340.      \vskip18pt
  341.      \raggedright
  342.      \noindent
  343.      \baselineskip=12pt
  344.      \lineskip=12pt
  345.      \hangindent=\wd0\hangafter=1
  346.      \box0#1%
  347.      \vskip12pt%
  348.      \noindent
  349.      \egroup%
  350.      \nobreak}%
  351.    %\vskip-\parskip
  352.    \ignorepar\ignorespaces}
  353.  % -------------------------------------------------------------------
  354.  % Beginn Ueberschrift 4. Ordnung arabisch numeriert
  355.  %
  356.  \def \titled#1{{\ifvmode\else\par\fi
  357.      \checkleftspace{\tdfont}{#1}{12pt}
  358.      \stepc{To}
  359.      \resetcount{Tp}
  360.      \bgroup
  361.      \tdfont
  362.      \setbox0\hbox{\arabic{Tl}.\arabic{Tm}.\arabic{Tn}.\arabic{To}\ }
  363.      \goodbreak
  364.      \vskip18pt
  365.      \raggedright
  366.      \baselineskip=12pt
  367.      \lineskip=12pt
  368.      \noindent
  369.      \hangindent=\wd0\hangafter=1
  370.      \box0#1%
  371.      \vskip12pt%
  372.      \noindent
  373.      \egroup%
  374.      \nobreak}%
  375.    %\vskip-\parskip
  376.     \ignorepar\ignorespaces}
  377. % -------------------------------------------------------------------
  378. % Definition neue Zeile
  379. %
  380.     \def \nz    {\hfill\break}
  381. %
  382. %===============================================================================
  383. % Spitzmarke kursiv.
  384. %
  385. %===============================================================================
  386. %
  387. %  Spitzmarke kursiv
  388. %
  389.    \def \titlef #1{\hsize=37.5truecc\hangindent=-19.5cc\hangafter=0
  390.                    \bgroup\noindent\tbfonta\ #1%
  391.                    \egroup\ignorespaces}
  392. %===============================================================================
  393. % Abbildungslegende.
  394. %
  395. %===============================================================================
  396. % Definition "Beginn Literaturverzeichnis"
  397. %der kleine Zwischenraum wird definiert:
  398.  
  399.  \let\zw=\thinspace
  400. %---------------------------------------------------------------------------
  401. % Abbildung
  402.    \def \caption  #1#2{\vskip6pt\noindent \bgroup
  403.                   \baselineskip=9.6pt plus0pt minus0pt
  404.                   \let\sanf=\ssanf \let\send=\ssend
  405.                   \textfont0=\kla \scriptfont0=\kkla
  406.                   \textfont1=\klb \scriptfont1=\kklb
  407.                   \textfont2=\klc \scriptfont2=\kklc
  408.                   \scriptscriptfont0=\kkla
  409.                   \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
  410.                   \let\sf=\klsf\let\sg=\klsg\let\rm=\klfam
  411.                    {\klbf #1}$\;$#2 \filbreak\par\egroup\vskip0.5cm}
  412. %===============================================================================
  413.  %der kleine Zwischenraum wird definiert:
  414.       \let\zw=\thinspace
  415.  %____________________________________________________________
  416.  % Definition der Anf\"uhrungszeichen:
  417.  %
  418.  % deutsche Anf\"uhrungszeichen auf:
  419.  \def \daa{\hbox{\lower6pt\hbox{''}}}
  420.  %
  421.  % deutsche Anf\"uhrungszeichen zu:
  422.  \def \daz{`` }
  423.  %
  424.  % % -------------------------------------------------------------------
  425.  % Definition "neue Zeile"
  426.  %
  427.      \def \nz{\hfil\break}
  428.  %
  429.  % ---------------------------------------------------------------
  430.  % Definition "Absatz"
  431.  %
  432.       \def \ab{\par}
  433.  %
  434. %===============================================================================
  435. % Makro fuer Fussnoten mit automatischer Numerierung.
  436. %
  437. %===============================================================================
  438. %% Zaehler-Definitionen fuer Ueberschriften
  439. %%
  440. \expandafter \newcount \csname c@Tl\endcsname
  441.     \csname c@Tl\endcsname=0
  442. \expandafter \newcount \csname c@Tm\endcsname
  443.     \csname c@Tm\endcsname=0
  444. \expandafter \newcount \csname c@Tn\endcsname
  445.     \csname c@Tn\endcsname=0
  446. \expandafter \newcount \csname c@To\endcsname
  447.     \csname c@To\endcsname=0
  448. \expandafter \newcount \csname c@Tp\endcsname
  449.     \csname c@Tp\endcsname=0
  450. \def \resetcount#1    {\global
  451.     \csname c@#1\endcsname=0}
  452. \def\@nameuse#1{\csname #1\endcsname}
  453. \def\arabic#1{\@arabic{\@nameuse{c@#1}}}
  454. \def\@arabic#1{\ifnum #1>0 \number #1\fi}
  455. %-------------------------------------------------------------------------------
  456. % Zaehler-Definition fuer Fussnoten und Uberschriften:
  457. %
  458. \expandafter \newcount \csname c@fn\endcsname
  459.     \csname c@fn\endcsname=0
  460. \def \stepc#1    {\global
  461.     \expandafter
  462.     \advance
  463.     \csname c@#1\endcsname by 1}
  464. %-------------------------------------------------------------------------------
  465.    \def \foonote #1      {\bgroup
  466.                           \baselineskip=9pt plus0pt minus0pt
  467.                           \lineskip=9pt plus0pt minus6pt
  468.                           \lineskiplimit=-6pt
  469.                           \kla
  470.                           \textfont0=\kla \scriptfont0=\kkla
  471.                           \textfont1=\klb \scriptfont1=\kklb
  472.                           \textfont2=\klc \scriptfont2=\kklc
  473.                           \textfont3=\kld \scriptfont3=\kkld
  474.                           \scriptscriptfont0=\kkla
  475.                           \let\it=\klit \let\bf=\klbf \let\rm=\kla
  476.                           \let\sf=\klsf \let\sg=\klsf
  477.                           \stepc{fn} \footnote {$^{\kla\arabic{fn}}$}
  478.                           \bgroup #1%
  479.                           \egroup \egroup\ \ }
  480. %-------------------------------------------------------------------------------
  481.     \catcode`\@ = 12
  482. %===============================================================================
  483. % Aufzaehlungsliste ohne Einzug.
  484. %
  485. %===============================================================================
  486. \def\item#1{\smallskip\par\noindent\hangindent=5mm\hangafter=1\hbox to
  487. 5mm{#1\hfil}\ignorespaces}
  488. \def\itemitem#1{\smallskip\par\noindent\hangindent=10mm\hangafter=1\hbox
  489. to 10mm{\kern5mm#1\hfil}\ignorespaces}
  490. %-------------------------------------------------------------------------------
  491. % Makro fuer Tabelle mit 5 Spalten.
  492. % Die Tabellenbreite ist 18cic.
  493. %
  494. %-------------------------------------------------------------------------------
  495. %
  496. % Tabelle mit 5 Spalten.
  497.    \def \btab    {\ \vskip24pt\bgroup\par\noindent\baselineskip=9pt
  498.                   \let\sanf=\ssanf \let\send=\ssend
  499.                   \textfont0=\kla \scriptfont0=\kkla
  500.                   \textfont1=\klb \scriptfont1=\kklb
  501.                   \textfont2=\klc \scriptfont2=\kklc
  502.                   \textfont3=\kld \scriptfont3=\kkld
  503.                   \scriptscriptfont0=\kkla
  504.                   \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
  505.                   \let\bf=\klbf\let\sf=\klsf\let\sg=\klsf
  506.                   \let\rm=\klfam\let\nz=\cr
  507.                   \halign to 18cc \bgroup\strut
  508.                   \hfill ## & \hfill ## & \hfill ## &
  509.                   ## \hfill & \hfill ## \cr}
  510.  
  511.    \def \etab    {\egroup\par\egroup\vskip24pt}
  512.    \def \tabzw   {\kern6mm}
  513.    \def \hlin {\noalign{\medskip\hrule width 18cc height 0.3pt\medskip}}
  514.  
  515. %-------------------------------------------------------------------------------
  516.    \def \bleg    {\cr \noalign \bgroup \vskip4.5pt \let\cr=\hb \noindent}
  517.    \def \eleg    {\egroup \cr}
  518. %-------------------------------------------------------------------------------
  519.    \def \strich  {\leaders \hrule height1pt}
  520. %-------------------------------------------------------------------------------
  521. %===============================================================================
  522. % Referenzen mit freigestellter Numerierung in Grundschrift
  523. %
  524. %===============================================================================
  525. %
  526.      \def \begref {\vskip24pt}
  527.  
  528.      \def \ref #1#2{\bgroup\petit\par\noindent\hbox to 0.8cm{#1}%
  529.                    \nobreak\noindent
  530.                   \hangindent=1.02truecm\hangafter=1%
  531.                   #2 \par\egroup}
  532. %===============================================================================
  533. % Grenzwerte zu Integer- und Summenzeichen neben den Zeichen sowie unter       %
  534. % und ueber den Zeichen                                                        %
  535. %==============================================================================%
  536. %  Grenzwerte ueber und unter dem Integerzeichen
  537.   \def\intl{\int\limits}
  538. %  Grenzwerte neben dem Summenzeichen
  539.   \def\suml{\sum\nolimits}
  540. %==============================================================================%
  541. % Kopfzeile
  542. \headline={\ifnum\pageno=1{\hfil}
  543. \else\ifodd\pageno
  544. \the\rightheadline
  545.               \else \the\leftheadline\fi\fi}
  546. %-------------------------------------------------------------------
  547. % Abbildungen
  548. \def\begcap#1cm#2\endcap{\par\vskip18pt\def\footnoterule{}
  549. \parindent=0pt
  550. \setbox1=\vbox{\hbox{\vrule height#1true cm}#2}%
  551. \dimen0=\ht1\advance\dimen0by\dp1\advance\dimen0by5\normalbaselineskip
  552. \ifdim\dimen0>\vsize
  553.   \pageinsert\box1\vss\endinsert
  554.   \else % keine seitenhohe Abbildung
  555.   \ifdim\pagetotal<\pagegoal %aktuelle Seite noch nicht voll
  556.     \advance\dimen0by\pagetotal
  557.     \ifdim\dimen0>\pagegoal %passt Abb+4Z nicht mehr auf akt Seite
  558.       \topinsert\box1\endinsert
  559.       \else\dimen0=\pagetotal %Abb+4Z passt auf akt Seite
  560.       \advance\dimen0 by-6.5\normalbaselineskip
  561.       \ifdim\dimen0>0pt %sind mindestens 7 Zeilen ueber Abb
  562.         \vskip6pt plus6pt minus6pt
  563.         {\box1}
  564.         \vskip6pt plus6pt minus6pt
  565.         \else\topinsert\box1\endinsert
  566.       \fi
  567.     \fi
  568.     \else\dimen0=\pagetotal\advance\dimen0 by-\pagegoal %akt Seite voll
  569.     \advance\dimen0 by-6.5\normalbaselineskip
  570.     \ifdim\dimen0>0pt %sind noch 7 Zeilen vor Abb auf naechster Seite
  571.         \vskip6pt plus6pt minus6pt
  572.         {\box1}
  573.         \vskip6pt plus6pt minus6pt
  574.       \else\topinsert\box1\endinsert
  575.     \fi
  576.   \fi
  577. \fi}
  578. %
  579.